COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "clok1"
C00005 ENDMK
C⊗;
BEGIN "clok1"
REQUIRE "DDSUB.SAI[GRA,HPM]" SOURCE_FILE;
REAL X1,Y1,X2,Y2,SIZE; STRING S; INTEGER I,J,K,L,M,N,DUM;
INTEGER ARRAY DIGS[0:9];

PROCEDURE DIG(REAL X;INTEGER I);
 BEGIN INTEGER J,K,L;
 J←DIGS[I];
 FOR K←0 STEP 1 UNTIL 4 DO FOR L←0 STEP 1 UNTIL 6 DO
  IF (J LSH (L*5+K-35)) LAND 1 THEN
   RECTAN(X+.2*(2*K/5-1),.3*(2*(6-L)/7-1),
          X+.2*(2*(K+1)/5-1),.3*(2*(7-L)/7-1));
 END;


DIGS[0]←'355736757334;
DIGS[1]←'147061430636;
DIGS[2]←'355431463076;
DIGS[3]←'355431417334;
DIGS[4]←'553267630614;
DIGS[5]←'774307417334;
DIGS[6]←'355707557334;
DIGS[7]←'761463143060;
DIGS[8]←'355733557334;
DIGS[9]←'355733617334;
OUTSTR("SIZE:"); SIZE←REALSCAN(S←INCHWL,DUM); IF SIZE=0 THEN SIZE←1;
SCREEN(-1,-1/SIZE,1,1/SIZE);
WHILE TRUE DO
 BEGIN
 N←CALL(0,"TIMER")%3600;
 IF N≠DUM THEN
  BEGIN
  DUM←N;
  M←(N%60) MOD 12;
  N←N MOD 60;
  DDINIT; FOR K←'32,'33,'34,'35,'37 DO DPYUP(K);
  "DRKEN; RECTAN(-1.1,-1.1/SIZE,1.1,1.1/SIZE);"
  "FOR I←1 STEP 1 UNTIL 5 DO FOR K←'36 DO DPYUP(K);"
  DRKEN; DDINIT;
  IF M%10 ≠ 0 THEN DIG(-.8,M%10);
  DIG(-.3,M MOD 10);
  DIG(.25,N%10);
  DIG(.75,N MOD 10);
  RECTAN(-.05,.1,0,.15); RECTAN(-.05,-.15,0,-.1);
  FOR I←1 STEP 1 UNTIL 5 DO FOR K←'36 DO 
   BEGIN GDDCHN(K); DPYUP(K); RDDCHN(K); END;
  END;
  CALL(10,"SLEEP");
 END;

END;